home *** CD-ROM | disk | FTP | other *** search
/ The Guinness Encyclopedia / The Guinness Encyclopedia - Wayzata Technology (3221-1B) (Disc 1) (1995).iso / mac / main / stack.txt < prev    next >
Text File  |  1995-07-14  |  7KB  |  262 lines
  1. -- stack: in
  2. -- format: 10 (HyperCard 2)
  3. -- flags: 0x1000 (none)
  4. -- protect password hash: 0
  5. -- maximum user level: 5 (scripting)
  6. -- window: Rect(0, 39, 640, 519)
  7. -- screen: Rect(0, 0, 1024, 768)
  8. -- card dimensions: w=640 h=480
  9. -- scroll: x=0 y=0
  10. -- background count: 1
  11. -- first background id: 5472
  12. -- card count: 1
  13. -- first card id: 8174
  14. -- list block id: 2586
  15. -- print block id: 2232
  16. -- font table block id: 3573
  17. -- style table block id: 3106
  18. -- free block count: 0
  19. -- free size: 0 bytes
  20. -- total size: 10080 bytes
  21. -- stack block size: 6144 bytes
  22. -- created by hypercard version: 0x02208000
  23. -- compacted by hypercard version: 0x02308000
  24. -- modified by hypercard version: 0x02208000
  25. -- opened by hypercard version: 0x02308000
  26. -- patterns[0]: 0x0000000000000000
  27. -- patterns[1]: 0x8000000008000000
  28. -- patterns[2]: 0x8800220088002200
  29. -- patterns[3]: 0x8888222288882222
  30. -- patterns[4]: 0x88AA22AA88AA22AA
  31. -- patterns[5]: 0xCCAA33AACCAA33AA
  32. -- patterns[6]: 0xEEAABBAAEEAABBAA
  33. -- patterns[7]: 0xEEBBBBEEEEBBBBEE
  34. -- patterns[8]: 0xFFBBFFEEFFBBFFEE
  35. -- patterns[9]: 0xFFBBFFFFFFBBFFFF
  36. -- patterns[10]: 0x8010022001084004
  37. -- patterns[11]: 0xFFFFFFFFFFFFFFFF
  38. -- patterns[12]: 0x8822882288228822
  39. -- patterns[13]: 0x1122448811224488
  40. -- patterns[14]: 0xC4800C6843023026
  41. -- patterns[15]: 0xB130031BD8C00C8D
  42. -- patterns[16]: 0xAA00AA00AA00AA00
  43. -- patterns[17]: 0x8822552288225522
  44. -- patterns[18]: 0x8855225588552255
  45. -- patterns[19]: 0x77DD77DD77DD77DD
  46. -- patterns[20]: 0x8000000000000000
  47. -- patterns[21]: 0xAA55AA55AA55AA55
  48. -- patterns[22]: 0x038448300C020101
  49. -- patterns[23]: 0x8244394482010101
  50. -- patterns[24]: 0x8814224188412214
  51. -- patterns[25]: 0x8080413E080814E3
  52. -- patterns[26]: 0x22048C7422179810
  53. -- patterns[27]: 0xBE808808EB088880
  54. -- patterns[28]: 0x25C8328964244C92
  55. -- patterns[29]: 0xA29C41BE2AC914EB
  56. -- patterns[30]: 0x40A00000040A0000
  57. -- patterns[31]: 0x8040200002040800
  58. -- patterns[32]: 0xAA00800088008000
  59. -- patterns[33]: 0xFF80808080808080
  60. -- patterns[34]: 0x081C22C180010204
  61. -- patterns[35]: 0xFF808080FF080808
  62. -- patterns[36]: 0xF87422478F172271
  63. -- patterns[37]: 0xBF00BFBFB0B0B0B0
  64. -- patterns[38]: 0xFF7FBE5DA2418000
  65. -- patterns[39]: 0xFAF5FAF5A050A050
  66. -- checksum: 0xDB9A9B4D
  67. ----- HyperTalk script -----
  68. on startUp
  69.   global lastCard
  70.   global lastBook
  71.  
  72.   --  put "go to card 1 of stack Guinness:mac:main" into lastCard
  73.   set lockscreen to true
  74.  
  75.   if "Audio Help" is in stacksInUse then stop using stack "Audio Help"
  76.   set numberFormat to "0"
  77.   -- AddColor install, 16
  78.  
  79.   put "Main" into lastBook
  80.   put the number of this card into lastCard
  81.  
  82.   -- delete menu 1
  83.   delete menu "File"
  84.   delete menu "Edit"
  85.   delete menu "Go"
  86.   delete menu "Font"
  87.   delete menu "Style"
  88.  
  89.  
  90.   -- create menu "Γîâ" -- resource...
  91.   -- create menu "∩ú┐" -- k
  92.   -- put "About Guinness Encyclopedia" before menuItem 1 of menu 1
  93.   -- delete menuItem 2 of menu 1
  94.   create menu "File"
  95.   put "Page Setup..." into menu "File"
  96.   put "Print Card"  after menuItem "Page Setup..." of menu "File"
  97.   put "Print Image"  after menuItem "Print Card" of menu "File"
  98.   put "Print Text"  after menuItem "Print Image" of menu "File"
  99.   put "-"  after menuItem 4 of menu "File"
  100.   put "Quit Encyclopedia"  after menuItem 5 of menu "File"
  101.   set the cmdChar of menuItem "Quit Encyclopedia" of menu "File" to "Q"
  102.   set the cmdChar of menuItem "Print Card" of menu "File" to "P"
  103.  
  104.   create menu "Edit"
  105.   put "Copy Text" into menu "Edit"
  106.   put "Copy Image" after menuItem "Copy Text" of menu "Edit"
  107.   set the cmdChar of menuItem "Copy Text" of menu "Edit" to "C"
  108.  
  109.   create menu "Go"
  110.   put "Main" into menu "Go"
  111.   put "Go Back" after menuItem "Main" of menu "Go"
  112.   put "Help" after menuItem "Go Back" of menu "Go"
  113.   put "Gallery" after menuItem "Help" of menu "Go"
  114.   put "Encyclopedia" after menuItem "Gallery" of menu "Go"
  115.   put "Explorer" after menuItem "Encyclopedia" of menu "Go"
  116.   put "Languages" after menuItem "Explorer" of menu "Go"
  117.   put "Credits" after menuItem "Languages" of menu "Go"
  118.  
  119.   create menu "Reader"
  120.   put "Caption" into menu "Reader"
  121.   put "Main Text" after  menuItem "Caption" of menu "Reader"
  122.  
  123.   disable menu "Reader"
  124.   set lockscreen to false
  125.   --pass startUp
  126.  
  127. end startUp
  128.  
  129. on AC_Transistions
  130. end AC_Transistions
  131.  
  132. on AC_SetTransistions
  133. end AC_SetTransistions
  134.  
  135. on resumeStack
  136.   disable menuItem "Print Text" of menu "File"
  137.   disable menuItem "Print Image" of menu "File"
  138.   enable menu "Edit"
  139.   enable menu "Go"
  140.   disable menuItem "Copy Text" of menu "Edit"
  141.   disable menuItem "Copy Image" of menu "Edit"
  142.  
  143. end resumeStack
  144.  
  145. on openCard
  146.  
  147.   Send colorMe to this card
  148.  
  149.   pass openCard
  150.   unlock screen
  151. end openCard
  152.  
  153. on doMenu menuItem
  154.   if menuItem is "Go Back" then
  155.     WTIgoback
  156.   else if menuItem is "Help" then
  157.     WTIhelp
  158.     exit doMenu
  159.   else if menuItem is "Main" then
  160.     WTImain
  161.   else if menuItem is "Gallery" then
  162.     WTIgallery
  163.   else if menuItem is "Explorer" then
  164.     WTIexplore
  165.   else if menuItem is "Credits" then
  166.     WTIcredits
  167.   else if menuItem is "Encyclopedia" then
  168.     WTIencycl
  169.   else if menuItem is "Languages" then
  170.     go to card 1 of stack "Guinness:mac:language samples" in a new window
  171.   else if menuItem is "About Hypercard..." then
  172.     WTIcredits
  173.     exit doMenu
  174.   else if menuItem is "Quit Encyclopedia" then
  175.     doMenu "Quit HyperCard"
  176.     exit doMenu
  177.   end if
  178.  
  179.   pass doMenu
  180.  
  181. end doMenu
  182.  
  183. on WTIcredits
  184.   go to card 1 of stack "Guinness:Mac:Credits"
  185. end WTIcredits
  186.  
  187. on closeCard
  188.   global lastCard
  189.   global lastBook
  190.   global lastBookN
  191.   -- put 1 into lastBookN
  192.   put "Main" into lastBook
  193.   put the number of this card into lastCard
  194.   -- put "go to card " & lCard & " of stack "Guinness:mac:main" into lastCard
  195.   set cursor to 4
  196.   lock screen
  197.   pass closeCard
  198. end closeCard
  199.  
  200. on colorMe
  201.   AddColor colorCard,stamp,30
  202. end colorMe
  203.  
  204.  
  205. on openStack
  206.   set lockscreen to true
  207.   AddColor install
  208.  
  209.   disable menuItem "Print Text" of menu "File"
  210.   disable menuItem "Print Image" of menu "File"
  211.   enable menu "Edit"
  212.   enable menu "Go"
  213.   disable menuItem "Copy Text" of menu "Edit"
  214.   disable menuItem "Copy Image" of menu "Edit"
  215.  
  216.   pass openStack
  217.   set lockscreen to false
  218. end openStack
  219.  
  220. on closeStack
  221.   AddColor remove
  222.   pass closeStack
  223. end closeStack
  224.  
  225.  
  226. on WTImain
  227.   go to card 1 of stack "Guinness:Mac:Main"
  228. end WTImain
  229.  
  230. on WTIhelp
  231.   go to card 1 of stack "Guinness:Mac:Help"
  232. end WTIhelp
  233.  
  234. on WTIquit
  235.   doMenu "Quit HyperCard"
  236. end WTIquit
  237.  
  238. on WTIexplore
  239.   go to card 1 of stack "Guinness:Mac:Explorer"
  240. end WTIexplore
  241.  
  242. on WTIgallery
  243.   go to card 1 of stack "Guinness:Mac:Gallery"
  244. end WTIgallery
  245.  
  246. on WTIcredits
  247.   go to card 1 of stack "Guinness:Mac:Credits"
  248. end WTIcredits
  249.  
  250. on WTIencycl
  251.   go to card 1 of stack "Guinness:Mac:Encyclopedia"
  252. end WTIencycl
  253.  
  254. on WTIgoback
  255.   global lastCard
  256.   -- global lastBook
  257.   -- global lastBookN
  258.   -- go to card lastCard of lastBook
  259.  
  260.   go to recent card
  261. end WTIgoback
  262.